(define mkcount
  (lambda (x)
    (lambda () (set! x (+ x 1)) x)))
(define c0 (mkcount 0))
(define c1 (mkcount 10))
(print (c0))
(print (c1))
(print (c0))
(print (c0))
(print (c1))
